مثال على الاحداث في فيجول بيسك 10

في هذا المثال سنقوم بوضع ثلاث أزرار على الفورم عند تحريك الماوس فوق الزر الأول ستتغير خلفية الفورم إلى اللون الأزرق وعند تحريك الماوس فوق الزر الثاني ستتغير خلفية الفورم إلى اللون الأحمر وفي كلتا الحالتين سنقوم بتغييرعنوان الفورم وعند الضغط على الزر الثالث سيتم إنهاء البرنامج ولعمل ذلك نتبع الخطوات التالية:

اسم الأداة	اسم الخاصية	القيمة
Button1	Text	اللون الأزرق
Button2	Text	اللون الأحمر
Button3	Text	خروج

1- ندخل إلى نافذة محرر الكود عن طريق الضغط على زر F7.

2- نختار من القائمة الموجودة في أقصى اليسار اسم الأداة الأولى وهي Button1 ثم نختار من القائمة الموجودة في أقصى اليمين اسم الحدث الخاص بتحريك الماوس فوق الزر وهو Mouse Move.

ونكتب الكود التالي:

Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.BackColor = Color.Blue

         "تحول اللون إلى الأزرق "= Me.Text

    End Sub

Me: هي اختصار لاسم الفورم (بدلا من كتابة اسم الفورم نكتب Me)

Back Color: اسم الخاصية للون الخلفية الخاص بالفورم.

Color.Blue: لعمل خلفية الفورم باللون الأزرق.

Me.Text: تستخدم لتغيير عنوان الفورم.

3-  نختار من القائمة الموجودة في أقصى اليسار اسم الأداة الثانية وهي Button2 ثم نختار من القائمة الموجودة في أقصى اليمين اسم الحدث الخاص بتحريك الماوس فوق الزر وهو Mouse Move.

ونكتب الكود التالي:

Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.BackColor = Color.Red

         "نحول اللون إلى أحمر"= Me.Text

    End Sub

4- نختار من القائمة الموجودة في أقصى اليسار اسم الأداة الثالثة وهي Button3 ثم نختار من القائمة الموجودة في أقصى اليمين اسم الحدث الخاص  بالنقر مرة واحدة  فوق الزر وهو Click.

ونكتب الكود التالي:

Private Sub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

End: تستخدم لإنهاء البرنامج عند الضغط على زر أو يمكن كتابة التعليمة Application. Exit  () بدلا من End.

تعديل المقال